unit FormCRUDFuncUnit;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons;

type
  TFormCRUDFunc = class(TForm)
    BitBtnConsultar: TBitBtn;
    BitBtn1: TBitBtn;
    procedure BitBtnConsultarClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormCRUDFunc: TFormCRUDFunc;

implementation

{$R *.dfm}

uses FormFuncionarioConsultaUnit, FormFuncionarioUnit;

procedure TFormCRUDFunc.BitBtn1Click(Sender: TObject);
var
  formcliente : TFormFuncionario;
begin
  formcliente := TFormFuncionario.Create(self);
  with formcliente do
  begin
    try
      ShowModal;
    finally
      free;
    end;
  end;
end;

procedure TFormCRUDFunc.BitBtnConsultarClick(Sender: TObject);
var
  fconsulta : TFormFuncionarioConsulta;
begin
  fconsulta := TFormFuncionarioConsulta.Create(self);
  with fconsulta do
  begin
    try
      ShowModal;
    finally
      free;
    end;
  end;
end;

end.
